object frmMonitor: TfrmMonitor Left = 379 Top = 197 Width = 370 Height = 330 BorderIcons = [biSystemMenu] Caption = 'Solar System Monitor' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poDefault OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object StatusBar: TStatusBar Left = 0 Top = 277 Width = 362 Height = 23 Panels = <> SimplePanel = True end object Toolbar: TPanel Left = 0 Top = 0 Width = 362 Height = 35 Hint = 'Toolbar' Align = alTop BevelOuter = bvNone TabOrder = 1 object spdAdd: TSpeedButton Left = 7 Top = 5 Width = 25 Height = 25 Hint = 'Add' Glyph.Data = { FE000000424DFE00000000000000760000002800000010000000110000000100 0400000000008800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333300000000033333330FFFFFFF033333000000000F0333330FFFFFFF 0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF0F0330330FFFFFFF 0F0333030F0FFFFF0003333000FFFFFF03333003300000000333333030333333 3333330303033333333330333330333333333333033333333333333333333333 3333} ParentShowHint = False ShowHint = True OnClick = spdAddClick end object spdRemove: TSpeedButton Left = 32 Top = 5 Width = 25 Height = 25 Hint = 'Remove' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000074120000741200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333300000000033333330FFFFFFF033333000000000F0333330FFFFFFF 0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF0F0333330FFFFFFF 0F0333330FFFFFFF0003113311FFFFFF03333111100000000333331133333333 3333311113333333333311331133333333333333333333333333} ParentShowHint = False ShowHint = True OnClick = spdRemoveClick end object spdClose: TSpeedButton Left = 98 Top = 5 Width = 65 Height = 25 Hint = 'Close System Monitor' Caption = '&Close' ParentShowHint = False ShowHint = True OnClick = spdCloseClick end object Bevel1: TBevel Left = 0 Top = 30 Width = 362 Height = 5 Align = alBottom Shape = bsBottomLine end object spdReset: TSpeedButton Left = 65 Top = 4 Width = 25 Height = 25 Hint = 'Reset All Monitors' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spdResetClick end end object PanelMonitor: TPanel Left = 0 Top = 38 Width = 362 Height = 236 Align = alClient BevelOuter = bvNone TabOrder = 2 OnClick = PanelMonitorClick end object Panel1: TPanel Left = 0 Top = 35 Width = 362 Height = 3 Align = alTop BevelOuter = bvNone TabOrder = 3 end object Panel2: TPanel Left = 0 Top = 274 Width = 362 Height = 3 Align = alBottom BevelOuter = bvNone TabOrder = 4 end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 292 Top = 10 object popAdd: TMenuItem Caption = '&Add...' Hint = 'Add a new monitor' ShortCut = 0 OnClick = PopMenuClick end object popRemove: TMenuItem Caption = '&Remove' Hint = 'Remove selected monitor' ShortCut = 0 OnClick = PopMenuClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object popReset: TMenuItem Caption = 'R&eset' Hint = 'Reset the monitor' ShortCut = 0 OnClick = PopMenuClick end object popHist: TMenuItem Caption = '&History Window...' Hint = 'Display the history window' ShortCut = 0 Visible = False OnClick = PopMenuClick end object popColor: TMenuItem Caption = '&Color...' Hint = 'Change the monitor color' ShortCut = 0 Visible = False OnClick = PopMenuClick end object popUnits: TMenuItem Caption = 'Show Current Value' GroupIndex = 1 ShortCut = 0 OnClick = PopMenuClick end object N2: TMenuItem Caption = '-' GroupIndex = 1 ShortCut = 0 end object popAnalog: TMenuItem Caption = 'A&nalog' GroupIndex = 1 Hint = 'Analog monitor' RadioItem = True ShortCut = 0 OnClick = PopMenuClick end object popBar: TMenuItem Caption = '&Bar' GroupIndex = 1 Hint = 'Bar monitor' RadioItem = True ShortCut = 0 OnClick = PopMenuClick end object popHisto: TMenuItem Caption = 'H&istogram' GroupIndex = 1 Hint = 'Histogram monitor' RadioItem = True ShortCut = 0 OnClick = PopMenuClick end end end